id: 3220052857 | 楼主：zqh——123 | 返回首页
id: 55335359734
1L | 作者：zqh——123 | 发布于 2014-08-10 00:40
群共享里面有，大家可以下载
id: 55335394605
2L | 作者：zqh——123 | 发布于 2014-08-10 00:41
公布一下代码：大家可以参考
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
str1 = txt1.Text
Dim intLength As Integer
intLength = Len(str1)
Dim intTimes As Integer
intTimes = (intLength + 2) / 22
str2 = InputBox("请输入你想要的速度（必须是三位代码）", "请输入速度", "001")
For int1 = 1 To intTimes
Mid(str1, int1 * 22 - 4, 3) = str2
Next
txt2.Text = str1
End Sub
Private Sub txt1_Change()
If (Len(txt1.Text) + 2) Mod 22 = 0 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
id: 55335430192
3L | 作者：zqh——123 | 发布于 2014-08-10 00:42
@马里奥奥里马
之前乃答应伦家了哦~
id: 55343755479
4L | 作者：百步穿杨又飞剑 | 发布于 2014-08-10 08:05
我vb没学多少，连循环都不会。。。c+蹇能玩
id: 55366055472
5L | 作者：zqh855 | 发布于 2014-08-10 15:15
哈
id: 55366196333
6L | 作者：zqh855 | 发布于 2014-08-10 15:18
哈
id: 55426433256
7L | 作者：zqh——123 | 发布于 2014-08-11 13:42
顶起
id: 55426567749
8L | 作者：123568024 | 发布于 2014-08-11 13:44
求发网盘
明天